home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / elk-2_0.lha / elk-2.0 / examples / xm / scroll-bar < prev    next >
Encoding:
Text File  |  1991-09-26  |  705 b   |  27 lines
  1. ;;; -*-Scheme-*-
  2. ;;;
  3. ;;; Scroll bar demo
  4.  
  5. (require 'motif)
  6. (load-widgets shell scroll-bar)
  7.  
  8. (define top (application-initialize 'scrollbar))
  9. (set-values! top 'allow-shell-resize #t)
  10.  
  11. (define scr (create-managed-widget (find-class 'scroll-bar) top))
  12. (set-values! scr 'height 500)
  13.  
  14. (define (f . r) (print r))
  15.  
  16. (add-callback scr 'decrement-callback f)
  17. (add-callback scr 'increment-callback f)
  18. (add-callback scr 'page-increment-callback f)
  19. (add-callback scr 'page-decrement-callback f)
  20. (add-callback scr 'drag-callback f)
  21. (add-callback scr 'to-top-callback f)
  22. (add-callback scr 'to-bottom-callback f)
  23. (add-callback scr 'value-changed-callback f)
  24.  
  25. (realize-widget top)
  26. (context-main-loop (widget-context top))
  27.